home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / PICLDR.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  310 b   |  16 lines
  1. 1 IFA<>0THEN90
  2. 5 POKE53280,0:POKE53281,0
  3. 10 PRINT"[147]NAME OF PICTURE FILE";:INPUTB$
  4. 15 PRINT"[147]"
  5. 20 A=1:LOADB$,8,1
  6. 90 FORI=1024TO2023:POKEI,16:NEXT
  7. 100 BASE=2*4096:POKE53272,PEEK(53272)OR8
  8. 110 POKE53265,PEEK(53265)OR32
  9. 140 GETC$:IFC$=""THENGOTO140
  10. 150 POKE53265,PEEK(53265)AND223
  11. 160 POKE53272,PEEK(53272)AND247
  12. 170 PRINT"[147]"
  13. 180 PRINT"A NEW ONE?"
  14. 190 GETD$:IFD$=""THEN190
  15. 200 IFD$="Y"THENGOTO5
  16.